#!/usr/bin/perl
$d = time();
@f = localtime($d+$ARGV[0]);
printf "%02d%02d%02d%02d%02d.%02d\n", $f[5]+1900-2000, $f[4]+1, $f[3], $f[2], $f[1], $f[0];
exit;
